home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 5 / Digital_Talk_05_1994-01-30_Digital_Talk_de_Side_B.d64 / cb-logbuch (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  105 lines
  1. 0 goto9
  2. 1 :" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][209] [209]    [176][192][192][192][201][176][192][192][192][192][174]
  3. 2 :" (NULL)(NULL)right$(NULL)right$(NULL)=right$right$(NULL)orright$(NULL)right$= =(NULL)=right$ (NULL)ortanright$(NULL)/tan^ortanexp
  4. 3 :" [221][202][201][171][179][221][221][221][221][221][171][179][171][179][221] [221][221][221][221] [221][221][160][221][221]  [221][221]
  5. 4 :" (NULL)mid$>(NULL)mid$(NULL) mid$>>expmid$(NULL)mid$> (NULL)(NULL) mid$tan<(NULL)close(NULL)(NULL)  (NULL)(NULL)
  6. 5 :" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]    [221][221][160][221][221]  [221][221]
  7. 6 :"                      (NULL)(NULL)close(NULL)(NULL)  (NULL)(NULL)
  8. 7 :"look at end of list ! [221][173][192][203][221]  [221][221]
  9. 8 :"                      /tantantan(NULL)  /exp
  10. 9 printchr$(14):printchr$(8)
  11. 10 poke53281,2:poke53280,2:input"[147][197]pson (j/n)";d$
  12. 20 p$="[184][184]"
  13. 30 dim a$(100),b$(100),a(100),b(100)
  14. 40 printchr$(147):poke646,5
  15. 50 poke53281,4 :poke53280,4
  16. 60 printspc(14);"[144][195][194]-[204][207][199][194][213][195][200]
  17. 65 [153][166]13);"(NULL)atn(NULL)(NULL)(NULL)atnright$ & str$(NULL) "
  18. 70 [153][166]13);"stop********sys****
  19. 80 print:printspc(12);"[144]1.[211]peichern"
  20. 90 print:print:printspc(12);"2.[204]aden"
  21. 100 print:print:printspc(12);"[144]3.[204]oeschen"
  22. 110 print:print:printspc(12);"4.[211]peicherinhalt zeigem
  23. 120 [153]:[153]:[153][166]12);"stop5.(NULL)peicherinhalt drucken"
  24. 130 [153]:[153]:[153][166]12);"6.(NULL)isting sehen"
  25. 140 [153]:[153]:[153][166]12);"stop7.valnde
  26. 150 getu$:ifu$=""then150
  27. 160 a=val(u$)
  28. 170 ifa=1then250
  29. 180 ifa=2then400
  30. 190 ifa=3then820
  31. 200 ifa=4then660
  32. 210 ifa=5then670
  33. 220 ifa=7then640
  34. 230 ifa=6thenpoke53272,21:print"[147]":list
  35. 240 goto40
  36. 250 input"[147] [211]kip   ";a$(1)
  37. 260 input" [206]ame   ";a$(0)
  38. 270 input" [209][212][200]    ";a$(2)
  39. 280 input" [209][210][199]    ";a$(3)
  40. 290 input" [211]/[210]    ";a$(5)
  41. 300 input" [196]atum  ";a$(4)
  42. 310 open1,8,2,+a$(1)+" "+left$(a$(0),1)+".,s,w"
  43. 320 print#1,a$(1)
  44. 330 print#1,a$(0)
  45. 340 print#1,a$(2)
  46. 350 print#1,a$(3)
  47. 360 print#1,a$(4)
  48. 370 print#1,a$(5)
  49. 380 close1
  50. 390 goto40
  51. 400 input"[147][158][215]ie lautet der [211]kip";b$(0)
  52. 410 input"[158][213]nd wie der [214]orname";b$(1)
  53. 420 ifl=10thenreturn
  54. 430 open1,8,2,+b$(0)+" "+left$(b$(1),1)+".,s,r"
  55. 440 input#1,a$(0)
  56. 450 input#1,a$(1)
  57. 460 input#1,a$(2)
  58. 470 input#1,a$(3)
  59. 480 input#1,a$(4)
  60. 490 input#1,a$(5)
  61. 500 close1
  62. 510 print"[147]"
  63. 520 ify=2thenprint"[147][211]peicherinhalt wird gedruckt":open4,4:cmd4
  64. 521 print"[147]":printtab(11) "* [211]amurai & [196][212] *"
  65. 522 print
  66. 525 print"            * [195][194]-[204]ogbuch *
  67. 527 [153]:[153]:[153]:[153]
  68. 530 [151]646,9:[153]"stop(NULL)kip   : ";a$(0)
  69. 540 [153]"stop(NULL)ame   : ";a$(1)
  70. 550 [151]646,9:[153]"stop(NULL)(NULL)left$    : ";a$(2)
  71. 560 [151]646,9:[153]"stop(NULL)(NULL)chr$    : ";a$(3)
  72. 570 [151]646,9 :[153]"stop(NULL)/(NULL)    : ";a$(5)
  73. 580 [153]"stopstr$atum  : ";a$(4)
  74. 590 [139]y[178]2[167]y[178]0:[142]
  75. 600 [153]"->> (NULL)aste fuer (NULL)enue <<-wait"
  76. 610 [161]t$:[139]t$[178]""[167]610
  77. 620 [139]y[178]1[167]y[178]0:[142]
  78. 630 [137] 40
  79. 640 [153]"load";[166]10);"sysatnuf (NULL)iedersehen"
  80. 650 [128]
  81. 660 y[178]1:[141]510:[137]40
  82. 670 y[178]2:[141]510:[152]4:[160]4:[137]40
  83. 680 [133]"loadsysatnnrede";r$
  84. 690 f$[178][196](a$(5))
  85. 700 [129]i[178]1[164][195](f$[170]a$(3)):p$[178]p$[170]"fre":[130]i
  86. 710 [159]4,4:[157]4
  87. 720 [153] r$
  88. 730 [153]
  89. 740 [153] a$(1);" ";a$(0)
  90. 750 [153]
  91. 760 [153] a$(2)
  92. 770 [153]
  93. 780 [139]d$[178]"j"[167][141]850:[137]810
  94. 790 [153] a$(5);a$(3)
  95. 800 [153]p$
  96. 810 [152]4:[160]4:p$[178]"frefre":[137]40
  97. 820 l[178]10:[141]400:l[178]0
  98. 830 [159]1,8,15,"s:"[170]b$(0)[170]" "[170][200](b$(1),1)[170]"."
  99. 840 [160]1:[137]40
  100. 850 [152]4,[199](27)"a"[199](5);[199](27)"-"[199](1);
  101. 860 [152]4," "a$(5);a$(3)" "
  102. 870 [152]4,[199](27)"-"[199](0):[142]
  103. 940 [128]
  104. 1000 [143]
  105.